home *** CD-ROM | disk | FTP | other *** search
/ Pro Intralink 3.1 / Pro Intralink v3.1.iso / dsrc / templates / unix / u_catcheck.inc < prev    next >
Encoding:
Text File  |  2001-11-27  |  850 b   |  33 lines
  1. // 30-Nov-98 $$1  TWH  Created.
  2. // 28-Jan-99 $$2  TWH  Fixed temp_installed list
  3. // -----------------------------------
  4. // expects valid_catia_mc wordlist set
  5. //
  6. set temp_installed_mc = (`ls $prodir/`)
  7. set installed_mc
  8.  
  9. foreach dir ($temp_installed_mc)
  10.   foreach mc_list ($valid_catia_mc)
  11.      if ("$dir" == "$mc_list") set installed_mc = ($installed_mc $dir)
  12.      if ("$dir" == "$mc") set good_mc
  13.   end
  14. end
  15.  
  16. if (! $?good_mc) then
  17.   echo "ERROR: Valid architectures are: "
  18.   foreach vmc ($valid_catia_mc)
  19.     echo "    ${vmc}"
  20.   end
  21.   echo "You have the following valid architectures are installed:"
  22.   if ("$installed_mc" == "") then
  23.     echo "    No valid architectures installed"
  24.   else
  25.     foreach imc ($installed_mc)
  26.       echo "    ${imc}"
  27.     end
  28.   endif
  29.   echo ""
  30.   echo "Your machine type is $mc which is not in this list. Exiting..."
  31.   exit(1)
  32. endif
  33.